home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac 1993 September / September 93.iso / Archives / Comunications / telecom / Telecom Programs / Term-Plus / Sample GEnie Script < prev    next >
Encoding:
Text File  |  1989-11-21  |  328 b   |  24 lines  |  [TEXT/TPLM]
  1. AutoType "ATDT9525400^M"
  2. @Label1
  3. If Prompt = "CONNECT" Then @Start
  4. If Prompt = "NO CONNECT" Then @Stop
  5. GoTo @Label1
  6.  
  7. @Start
  8. AutoType "H"
  9. Pause 1
  10. AutoType "H"
  11. Pause 1
  12. AutoType "H^M"
  13. Set Timer 10
  14. @Label2
  15. If Prompt = "U#=" Then @Label3
  16. If Timer Off Then @Stop
  17. Goto @Label2
  18.  
  19. @Label3
  20. AutoType "^RXYZ12345,HOUSE*MAGNET^M"
  21.  
  22. @Stop
  23. Quit
  24.